home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 49
/
Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso
/
-in_the_mag-
/
cb_dopus
/
pch581
/
opus_patch580-581
< prev
next >
Wrap
Text File
|
1999-12-08
|
5KB
|
207 lines
; Opus_Patch580-581
; Installer Script to update Directory Opus Magellan version 5.80 to 5.81
;
; Directory Opus Update Version $VER: Update-Opus 80-81C (12.06.99)
; COPYRIGHT ©1999 GP SOFTWARE, AUSTRALIA
(complete 0)
(procedure clear_assigns
(makeassign "DOPNEW")
(makeassign "PCH")
(makeassign "DOPOLD")
)
(procedure signal_opus
(set #Sigs (tackon #SRC "dopusmsg"))
(if (exists #Sigs (noreq))
(run (cat #Sigs " DOPUS.1 \"command set notify off\""))
)
)
(procedure make_newfiles ; (#EXT) requires #EXT to be set before call
(working "Updating modules/icon.module")
(run (cat (tackon #SRC "spatch") " -oDOPNEW:modules/icon.module -pPCH:icon.module."#EXT" DOPOLD:modules/icon.module"))
(working "Updating modules/diskinfo.module")
(run (cat (tackon #SRC "spatch") " -oDOPNEW:modules/diskinfo.module -pPCH:diskinfo.module."#EXT" DOPOLD:modules/diskinfo.module"))
(working "Updating modules/configopus.module")
(run (cat (tackon #SRC "spatch") " -oDOPNEW:modules/configopus.module -pPCH:configopus.module."#EXT" DOPOLD:modules/configopus.module"))
(working "Updating modules/ftp.module")
(run (cat (tackon #SRC "spatch") " -oDOPNEW:modules/ftp.module -pPCH:ftp.module."#EXT" DOPOLD:modules/ftp.module"))
(working "Updating modules/read.module")
(run (cat (tackon #SRC "spatch") " -oDOPNEW:modules/read.module -pPCH:read.module."#EXT" DOPOLD:modules/read.module"))
(working "Updating modules/themes.module")
(run (cat (tackon #SRC "spatch") " -oDOPNEW:modules/themes.module -pPCH:themes.module."#EXT" DOPOLD:modules/themes.module"))
(working "Updating modules/about.module")
(run (cat (tackon #SRC "spatch") " -oDOPNEW:modules/about.module -pPCH:about.module."#EXT" DOPOLD:modules/about.module"))
(working "Updating libs/dopus5.library")
(run (cat (tackon #SRC "spatch") " -oDOPNEW:libs/dopus5.library -pPCH:dopus5.library."#EXT" DOPOLD:libs/dopus5.library"))
(working "Updating DirectoryOpus")
(run (cat (tackon #SRC "spatch") " -oDOPNEW:DirectoryOpus -pPCH:DirectoryOpus."#EXT" DOPOLD:DirectoryOpus"))
)
(procedure wrong_version
(message #Title_msg
"Sorry, you have the wrong version of DirectoryOpus.\n\n"
"This upgrade will NOT WORK for your version.\n"
#README
"Your Opus version is "#dop_ver"."#dop_rev".\n"
"and the library is "#lib_ver"."#lib_rev"\n")
(exit "Installation terminated!")
)
(procedure anyone_home
(message #Title_msg
"Sorry, cannot find DirectoryOpus on you system!\n\n"
#README)
(exit "Installation terminated!")
)
(procedure wrong_dopus
(message #Title_msg
"Sorry, you have the wrong version of DirectoryOpus.\n\n"
"This upgrade will NOT WORK for your version.\n\n"
#README
"Your Opus version is "#dop_ver"."#dop_rev".\n")
(exit "Instalation terminated!")
)
;
; start
;
(
(onerror clear_assigns)
(set #OLD_OPUS "DOpus5:")
(set #FINAL "DOpus5:")
(set @default-dest #FINAL)
(set #NEW_OPUS "ram:OP581")
(set #PCH_TMP "ram:OPPCHTMP")
(set #SRC "ram:PCH581")
(set #WANT_PRGREV 8)
(set #WANT_LIBVER 68)
(set #EXT "pch81")
(set #PATCHNAME "Opus8081CPatch.lha")
(set #DOPUSPROG (tackon #OLD_OPUS "DirectoryOpus"))
(set #README "Please read the ReadMe acompanying this archive or contact GPSoftware for details of upgrades\n\n")
(clear_assigns)
(signal_opus)
(makeassign "DOPOLD" #OLD_OPUS)
(makedir #NEW_OPUS)
(makeassign "DOPNEW" #NEW_OPUS)
(makedir "DOPNEW:modules")
(makedir "DOPNEW:help")
(makedir "DOPNEW:libs")
(makedir #PCH_TMP)
(makeassign "PCH" #PCH_TMP)
; main procedure
(set #Title_msg "Directory Opus Magellan 5.81C Update Patch.\n\n")
(message #Title_msg
"This procedure will update your existing version of"
" Directory Opus Magellan 5.80 to version 5.81.\n\n"
"When finished, you will need to reboot your Amiga.\n\n"
"The procedure will create a number of temporary "
"directories in RAM:, update your current DOpus5: "
"files then copy the new files back over your old "
"DOpus5: directory. When the process is complete, "
"reboot your Amiga and read the ReadMe_Magellan581 "
" file for details of the changes and new features."
)
(if (exists #DOPUSPROG (noreq))
(
(set #Vernum (getversion #DOPUSPROG))
(set #Dop_ver (/ #Vernum 65536))
(set #Dop_rev (- #Vernum (* #Dop_ver 65536) ) )
);else
(anyone_home)
)
(if (AND (= #dop_ver 5 ) (= #dop_rev #WANT_PRGREV ))
(
(if (exists (tackon #SRC #PATCHNAME))
(
(working "Unarchiving patch files...")
(run (cat (tackon #SRC "lhex") " >NIL: <NIL: -qfw=PCH: x " (tackon #SRC #PATCHNAME)))
(make_newfiles)
(copyfiles (source "DOPNEW:") (dest #FINAL) (all) (optional force))
(copyfiles (source (tackon #SRC "ReadMe_Magellan581")) (dest #FINAL) (infos))
(message #Title_msg
"Your DirectoryOpus Magellan should now have been updated to "
"version 5.81. To complete the installation please reboot "
"your Amiga and then read the ReadMe_Magellan5.81 in the "
"DOpus5: directory")
); else
(message #Title_msg
"Woops! Cannot find the patch archive\n"
"Required archive: "#PATCHNAME".\n\n"
)
)
)
(wrong_dopus) ;else
)
;
; tidyup
;
(clear_assigns)
(run (cat "C:Delete " #PCH_TMP " all"))
(run (cat "C:Delete " #NEW_OPUS " all"))
(clear_assigns)
)